home *** CD-ROM | disk | FTP | other *** search
/ Exploring Where & Why / Exploring Where & Why.iso / pc / MEMMON.DIR / 00075_write profile to main movie.ls < prev    next >
Encoding:
Text File  |  2003-04-21  |  432 b   |  18 lines
  1. on mouseUp
  2.   put EMPTY into field "Profile Output"
  3.   copyToClipboard(cast("Profile scripts"))
  4.   tell the stage
  5.     pasteClipboardInto(cast(findEmpty(cast(1))))
  6.   end tell
  7.   tell the stage
  8.     ProfileCasts()
  9.   end tell
  10.   put the result into field "Profile Output"
  11.   tell the stage
  12.     cast("Profile scripts").scriptText = EMPTY
  13.   end tell
  14.   tell the stage
  15.     cast(the number of member "Profile scripts").name = EMPTY
  16.   end tell
  17. end
  18.